home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XSETATT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-06  |  526 b   |  26 lines
  1. {$IBoDecl}
  2. {$ISetAtt}
  3. {$IPutStr}
  4.  
  5. var
  6.    j, Att : integer;
  7.  
  8. BEGIN
  9.  
  10.    ClrScr;
  11.    for i := 1 to 6 do
  12.       for j := 1 to 20 do
  13.    PutStr (h,#04 +#04 +#04 , 1+(j-1)*4, 7-i, 14);
  14.  
  15.    repeat
  16.       PutStr (h, 'Enter attribute value,'+
  17.                  ' 0-255 (Out of Range quits) ',
  18.                   1,10,14);
  19.       ClrEol;
  20.       read(att);
  21.       if (att >= 0) and (att <= 255) then
  22.          for i := 1 to 20 do
  23.             SetAtt (1+(i-1)*4,1,3+(i-1)*4,6,att);
  24.    until (att < 0) or (att > 255);
  25.  
  26. END.